home *** CD-ROM | disk | FTP | other *** search
/ Jurassic Jigsaws / JURASSIC.BIN / gstwndem.dir / 00043_Script_movie script < prev    next >
Text File  |  1996-08-20  |  1KB  |  35 lines
  1. global filesep
  2.  
  3.  
  4. on startmovie
  5.   if the machinetype = 256 then set filesep = "\"
  6.   else set filesep = ":"
  7.   
  8. end startmovie
  9.  
  10.  
  11. on buttonscript mWhichSprite
  12.   if not the puppet of sprite mWhichSPrite then puppetsprite mWhichSprite, TRUE
  13.   put the membernum of sprite mWhichSPrite into tOrigMember
  14.   put the number of member (the name of member tOrigMember & "Down" ) into tDownMember
  15.   set the membernum of sprite mWhichSprite = member tDownMember
  16.   updatestage
  17.   repeat while the mousedown
  18.     put the mousecast into tRollMember
  19.     if tRollMember = tDownMember or tRollMember = tOrigMember then
  20.       set the membernum of sprite mWhichSPrite = tDownMember
  21.       updatestage
  22.     else
  23.       set the membernum of sprite mWhichSPrite = tOrigMember
  24.       updatestage
  25.     end if
  26.   end repeat
  27.   set the membernum of sprite mWhichSPrite = tOrigMember
  28.   updatestage
  29.   
  30. end buttonscript
  31.  
  32. on playsoundeffect whatfolder, whatsound
  33.   sound playfile 1, the pathname & whatfolder & filesep & whatsound
  34.   
  35. end playsoundeffect